RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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m 15 
**F ILE**1D**CONVBL 
ccccccce NN NN VV VV BBBBBBBB LL 
cccccccc 000000 NN NN VV VV 88888888 LL 
cc 00 00 NN NN VV VV BB BB LL 
cc 00 00 NN NN VV VV 6B BB LL 
cc 00 00 NNNN NN VV VV BB BB LL 
cc 00 00 NNNN NN VV VV 6B LL 
cc 00 OO NN NN NN VV VV BB8BBBB8B LL 
cc 00 00 NN NN NN VV VV BBBBBGBB LL 
cc 00 00 NN NNNN VV VV BB BB LL 
cc 00 00 NN NNNN VV VV 8B BB LL 
cc 00 00 NN NN VV VV BB BB LL eoee 
ce 00 00 NN NN ve VW BB BB LL eos 
cccccccc 000000 NN NN VV BBBBBBBB LLLLLLLLLL eee 
cccccccc 000000 NN NN VV BBBBBBBB LLLLLLLLLL eee 
LL IIIIII SSSSSSSS 
LL III SSSSSSSS 
LL II SS 
LL Il SS 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLELL III] SSSSSSSS 
LLLLLLLLLL III SSSSSSSS 
i 
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1esep-19 79:05:32 ERUnoreSaeSconveL U1: 


MODULE CONVBL ( IDENT = *v06-000" 
+4 = 
ZBL1SS32C 


ADDRESSING ~MODE (EXTERNAL =LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


)ez 
BEGIN 


i eeeeeneeeeneeeneeeereeeneeeneteeeterereeeeeeteeeeereneeeeeeeeeeeeneeeeeeeeee 
' 

ie COPYRIGHT (c) 1978 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

it ae "trie is FURNISHED eee A LICENSE AND MAY BE USED AND corres 

'® ONLY IN ACCORDANCE ae THE TERMS OF SUCH LICENSE AND WITH THE 


® 
® 
® 
® 
® 
® 
® 
; CLUSION OF OF TWARE 0 * 
t* COPIES THEREOF oy NOT BE PROv..ED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. * 
4 wv 
il poe Se oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
® 
« 
te 
® 
® 


is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ie CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'® 
See RRA AARAAAAAAAARA AAA AERA AERA ARATE AAA REE 
n 


i+¢ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: Convert a binary number into a vector of characters and 
return the result and character count. 

i ENVIRONMENT: Transportable 

i AUTHOR: R.W.Friday CREATION DATE: April, 1979 


16 
Revision History 18-Sep-1984 99: 59:8 Yannorr sae CoMveL ‘Outs rice: (2s 
SBTTL ‘Revision History’ 
MODIFIED BY: 
003 KFA00003 Ken Alden 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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15-Sep-1984 90: 10:36 AX=11 Bliss-32 V4.0-74 Page 3 


Module Level Declarations -Sep- RUNOFF .SRCJCONVBL.BLI; (3) | 


ZSBTTL ‘Module Level Declarations’ 
! 
OWN STORAGE: 
OWN 
TABLE : INITIAL ( CHSPTR(UPLIT('OABCDEFGHIJKLMNOPQRSTUVWXYZ')) ); 


—ODONOUS 


1 
1 
1 
1 
1 
1 
1 
1 


ao 


16-Sep-1984 90:19:46 AX-11 Bliss-32 V4.0-74 Page 4 


v04-000 Module Level Deciarations 14-Sep-19 RUNOFF .SRCJCONVBL.BLI; (4) 
3 $ 860 | GLOBAL ROUTINE CONVBL (BINARY_NUMBER, KHARACTERS, KHARACTER_COUNT, ULM) : NOVALUE = 
.- & §0¢ 1] !4¢ 

3 og $27 ! } FUNCTIONAL DESCRIPTION: 

5; & Goes .4 Converts "Dinery nysper to a vector of characters, 

; @ B98 . 7 returning them in ‘kharacters';: kharacter_count is the 
: 70 be 1! number of characters that result. 

CARR a 68 1! The absolute value of ornate number’ is converted 

ee 069 1! so that the user is responsible for handling negative numbers. 
ale 0070 1! ULM determines what the string of letters looks Like: 
; Bee) 1} -1] means return all in upper case. 

7 oe 14 . 3 Q means return all in lower case. 

oo oe 0075 1! +1 means capitalize first letter. 

eee 4 0074 1! 

; 78 0075 1 ! FORMAL PARAMETERS: 

; FF 0076 1! 

3 80 0077 1! See FUNCTIONAL DESCRIPTION 

; Bi 0078 1! 

cc. oe 0079 1 =! IMPLICIT INPUTS: None 

o> ie 0080 1! 

; = B4 0081 1 =! IMPLICIT OUTPUTS: None 

3; «689 0082 1! 

; 36886 0085 1 ! ROUTINE VALUE: 

5 87 0084 1 ! COMPLETION CODES: None 

; 88 0085 1! 

3 89 0086 1 ! SIDE EFFECTS: None 

; 0087 1! 

; i 0088 1 !-- 

a 2 0089 1 

; 0090 2 BEGIN 

:; 94 0091 2 

s 95 0092 2 p 

é 96 009 2 KHARACTERS : REF VECTOR; 

:; 97 0094 2 

; 98 0095 § LOCAL 

;s 9 0096 LEFT_TO_CONVERT; 

; 100 0097 2 

s 101 0098 2 »KHARACTER_COUNT = 0; 

; 10¢ 0099 2 LEFT_TO_CONVERT = ABS (.BINARY_NUMBER); 

3 6104 0101 $ 'Catch the special case, when the number is zero. 

3 105 0108 IF .LEFT_TO_CONVERT EQL 0 

. 

: 108 0105 KHARACTERS (0) = CHSRCHAR‘.TABLE); 'First character is the special ‘zero’ character. 
3; 109 8196 ; -KHARACTER_COUNT = 1; 

; 110 107 RETUPN; 

s 111 108 3 

3 V6 109 ° 

3 BF 119 'The normal case, when the number is not zero. 

3: 115 M6 BEGIN 

3 116 11 LOCAL 

a | 114 GROUP, 

; 118 115 UNITS; 

: 119 0116 


CONVB 16-50 -$ep-1984 AX-11 Bliss-32 V4.0-74 P 
v04- 800 Module Level Declarations 1 300-1 3b 99: ge: 29 RUNOFF .§RC COnVeL BL is ia “ad 
: 120 117 GROUP = (,LEFT_TO CONVERT )/26; 
; 18} 11 UNITS = LEFT. 10 CONVERT - “28s OROUPD 
; a 11 KHARAC TERS C. SKAARACTER COUNT] = CHSRCHAR(CHSPLUS(.TABLE,.UNITS)); 
; 5 1 RACTER COUNT _ HARACTER_COUNT + 1; 
; 4 i cert _TO_CORVERT GROUP: 
; $ § UNTIL .LEFT_TO_CONVERT EQL 0; 
: 128 125 ‘Appl 
$ é ae 4 Seee, tunes 
133 a ; "user is content with all in upper case. 
: 13 0131 ‘Convert the necessary number of * eae A fe. upper case. 
> 135 013¢ INCR I FROM 0 TO (..KHARACTER COUNT = OF bo 
3 136 0133 ; KHARACTERS C.1] = .KHARACTERS tv 4 - 4C' RY + 4C'a'; 
; 13 piae RETURN; 
: 139 0136 1 END; ‘End of CONVBL 
-TITLE CONVBL 
[IDENT \V04-000\ 
.PSECT $PLIT$,NOWRT,NOEXE,2 
4E 40 4C 4B 4A 49 48 47 46 45 44 43 42 41 30 00000 P.AAA: ASCII \OABCDEFGHIJKLMNOPQRSTUVWXYZ\<0> F 
00 5A 59 58 57 56 55 54 53 52 51 50 4F 0000F : 
.PSECT SOWNS,NOEXE,2 
00000000' 00000 TABLE: .ADDRESS P.AAA ; 
.PSECT $CODES$,NOWRT,2 
001¢ 00000 .ENTRY CONVBL, Save R2,R3,R4 7 0060 | 
54 0c aC dO 00002 MOVL § KHARACTER_COUNT, R4 > 0098 | 
64 D4 90006 CLRL ; 
50 04 AC 00 900 VL BINARY_NUMBER, LEFT_TO_CONVERT > 0099 | 
03 18 0000C BGEQ F 
50 50 ce O00E MNEGL FT_TO_CONVERT, LEFT_TO_CONVERT ; | 
0c 12 00011 1$: BNEQ ; 0102 
08 BC 00000000' FF 9A 00013 MOVZBL @TABLE, @KHARACTERS : 010 
64 01 dO 00018 MOVL #1, (R4) > 0106 
04 O1E RET : 010 
51 FF AO 9€ olf 2$: MOV 3 {R02 : 011 
51 1A i: 0 DIVL hou ; : 
26 51 1A C 6 MULL ; e. GRO ; 011 
5 5 52 C3 O002A SUBL3 sR LerT TO. Be AVERT, UNITS : 
5 64 bo : MOVL rd), > 0119 
08 BC4 el gai aA 0 1 MOVZBL @TABLELUNITS), @KHARACTERSCR2) eae! 
$7 08 6 : MOVL GROUP, LEFT_TO_CONVERT : 13 
DD 12 0004 BNEQ $ : 0123 


F 16 
16-Se 6 AX-11 Bliss-32 V4.0-74 
Module Level Declarations 14- Sep- 138 0 8: 8 RUNOFF .SRCJCONVBL.BLI; 
FFFFFFFF SF 10 Ag i) 42 CMPL LA. #-1 
1 1 4A BEQL 
54 64 10 ac C af SUBL3 1 a (R4), RG 
= 1 i ge 
08 BC40 0 3 0056 3$: ADDL2 1a @KHARACTERSCI) 
F7 50 4 F2 00058 4$: AOBLSS R4, I, 3$ 
04 OOOSF 5$: RET 
; Routine Size: 96 bytes, Routine Base: $CODE$ + 0000 
oy 
0158 JE 'End of module 
0139 O EL UDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 28 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 96 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:CONVBL/OBJ=0BJ$:CONVBL MSRC$:CONVBL/UPDATE=(ENH$: CONVBL ) 
96 code + 32 data bytes 


; Elapsed Tines 00:06.4 
; Lines/CPU Min: alee 

; Lexemes/CPU-Min: 1076 

; gener Used: 39 pages 

; Compilation Complete 
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